Cine Live 69/Cine Live 69.iso/pc/Data/Interface/e8s.k

Text File | 2003-04-30 | 7.2 KB | 281 lines

module oRoot1 is cBox
with
    Flags is $00000152;
    release Editor:
        IOWindow is {$00000191,$000000AD,$000001DA,$0000029A,$00000000,$00000000,$00000000,$00000000};
        LayoutWindow is {$000000A1,$0000007B,$000002A0,$00000245,$00000000,$00000000,$00000064,$00000000};
    end;
    Name is "Root";
    Enabled is false;

    Width is 800; Height is 600;

    Kind is DrawOpaque;
    Elements is [
        oslide2,
        oslide23,
        oslide34,
        oslide45
    ];
    Events is [
        cOnscreenEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oslide2; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide2; end,
                cFocusCommand
                with Target is oslide2; end,
                cRunCommand
                with Flags is $00000004; Target is oslide2; Rewind is true; end
            ];
        end
    ];
end;

object oslide2 is cImage
with
    Flags is $00000010;
    Name is "slide";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/Le%20myst%E8re%20de%20la%20chambre%20jaune/B%20Podalyd%E9s.jpg";


    Events is [
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cFocusCommand
                with Target is oTargetSelf; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cRunCommand
                with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Target is oslide23; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oslide23; Mode is Clear; end,
                cShowCommand
                with Target is oslide23; Mode is Clear; end,
                cBackCommand
                with end
            ];
        end,
        cFinishedEvent
        with
            Commands is [
                cShowCommand
                with Target is oslide2; Mode is Clear; end,
                cEnableCommand
                with Target is oslide2; Mode is Clear; end,
                cRunCommand
                with Target is oslide2; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Target is oslide23; end,
                cShowCommand
                with Target is oslide23; end,
                cEnableCommand
                with Target is oslide23; end,
                cRunCommand
                with Target is oslide23; Rewind is true; end
            ];
        end
    ];
end;

object oslide23 is cImage
with
    Name is "slide2";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/Le%20myst%E8re%20de%20la%20chambre%20jaune/D%20Podalyd%E9s.jpg";


    Events is [
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cFocusCommand
                with Target is oTargetSelf; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cEnableCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oslide34; Mode is Clear; end,
                cShowCommand
                with Target is oslide34; Mode is Clear; end,
                cRunCommand
                with Target is oslide34; Mode is Clear; Rewind is true; end,
                cBackCommand
                with end
            ];
        end,
        cFinishedEvent
        with
            Commands is [
                cShowCommand
                with Target is oslide23; Mode is Clear; end,
                cEnableCommand
                with Target is oslide23; Mode is Clear; end,
                cRunCommand
                with Target is oslide23; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Target is oslide34; end,
                cShowCommand
                with Target is oslide34; end,
                cEnableCommand
                with Target is oslide34; end,
                cRunCommand
                with Target is oslide34; Rewind is true; end
            ];
        end
    ];
end;

object oslide34 is cImage
with
    Name is "slide3";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/Le%20myst%E8re%20de%20la%20chambre%20jaune/Le%20mystere%20de%20la%20chambre%20ja.jpg";


    Events is [
        cKeyboardEvent
        with Test is IsSpace;
            Commands is [
                cFocusCommand
                with Target is oTargetSelf; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flag is true;
            Commands is [
                cEnableCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Target is oslide45; Mode is Clear; end,
                cShowCommand
                with Target is oslide45; Mode is Clear; end,
                cRunCommand
                with Target is oslide45; Mode is Clear; Rewind is true; end,
                cBackCommand
                with end
            ];
        end,
        cFinishedEvent
        with
            Commands is [
                cShowCommand
                with Target is oslide34; Mode is Clear; end,
                cEnableCommand
                with Target is oslide34; Mode is Clear; end,
                cRunCommand
                with Target is oslide34; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Target is oslide45; end,
                cShowCommand
                with Target is oslide45; end,
                cEnableCommand
                with Target is oslide45; end,
                cRunCommand
                with Target is oslide45; Rewind is true; end
            ];
        end
    ];
end;

object oslide45 is cImage
with
    Flags is $00000150;
    Name is "slide4";
    Enabled is false; Shown is false; Cursor is oEmptyCursor;

    Width is 800; Height is 600;
    Duration is 2; Duration is 2; TimeScale is 1;
    URL is "../../Photos/Le%20myst%E8re%20de%20la%20chambre%20jaune/O%20Gourmet.jpg";


    Events is [
        cKeyboardEvent
        with Flags is $00000004; Test is IsSpace;
            Commands is [
                cFocusCommand
                with Flags is $00000004; Target is oTargetSelf; end,
                cRunCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Toggle; end
            ];
        end,
        cMouseUpEvent
        with Flags is $00000004; Flag is true;
            Commands is [
                cEnableCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oTargetSelf; Mode is Clear; Rewind is true; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; end,
                cShowCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oslide2; Mode is Clear; Rewind is true; end,
                cBackCommand
                with Flags is $00000004; end
            ];
        end,
        cFinishedEvent
        with Flags is $00000004;
            Commands is [
                cShowCommand
                with Flags is $00000004; Target is oslide45; Mode is Clear; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide45; Mode is Clear; end,
                cRunCommand
                with Flags is $00000004; Target is oslide45; Mode is Clear; Rewind is true; end,
                cFocusCommand
                with Flags is $00000004; Target is oslide2; end,
                cShowCommand
                with Flags is $00000004; Target is oslide2; end,
                cEnableCommand
                with Flags is $00000004; Target is oslide2; end,
                cRunCommand
                with Flags is $00000004; Target is oslide2; Rewind is true; end
            ];
        end
    ];
end;